## [1] "C:/Users/cui/Documents/R-Projects/JHCovidAnalysis"
## [1] "After population data extraction, 3 countries in master_data were not found in countries_population (and will be dropped):"
## [1] "Diamond Princess" "MS Zaandam" "Summer Olympics 2020"
Country Rankings
Increases
Top 20 Countries - Increase Deaths Avg Avg
|
Country_Region
|
Increase_Deaths_Avg_Avg
|
|
United States
|
1241.2
|
|
Russia
|
1073.4
|
|
Poland
|
429.1
|
|
Germany
|
365.9
|
|
Ukraine
|
333.1
|
|
India
|
298.3
|
|
Vietnam
|
242.7
|
|
Turkey
|
181.2
|
|
Mexico
|
166.2
|
|
France
|
151.2
|
|
Hungary
|
149.2
|
|
Brazil
|
134.9
|
|
Italy
|
116.8
|
|
United Kingdom
|
113.5
|
|
Czech Republic
|
100.9
|
|
Greece
|
89.6
|
|
Slovakia
|
87.5
|
|
Bulgaria
|
81.0
|
|
Romania
|
73.3
|
|
Philippines
|
72.7
|
Top 20 Countries - Increase Weighted Deaths Avg per 1e+06 people
|
Country_Region
|
Increase_Weighted_Deaths_Avg_Avg
|
|
Trinidad and Tobago
|
18.64
|
|
Slovakia
|
16.03
|
|
Hungary
|
15.34
|
|
Georgia
|
12.97
|
|
Croatia
|
12.91
|
|
Bulgaria
|
11.78
|
|
Poland
|
11.25
|
|
Czech Republic
|
9.45
|
|
Greece
|
8.36
|
|
Bosnia and Herzegovina
|
8.25
|
|
Ukraine
|
8.07
|
|
Lithuania
|
7.52
|
|
Russia
|
7.34
|
|
Moldova
|
7.06
|
|
Saint Lucia
|
6.85
|
|
San Marino
|
6.06
|
|
North Macedonia
|
5.74
|
|
Slovenia
|
5.56
|
|
Latvia
|
5.47
|
|
Montenegro
|
5.29
|
Top 20 Countries - Increase Confirmed Avg Avg
|
Country_Region
|
Increase_Confirmed_Avg_Avg
|
|
United States
|
138652
|
|
United Kingdom
|
77633
|
|
France
|
52890
|
|
Germany
|
38445
|
|
Russia
|
27909
|
|
Spain
|
26753
|
|
Italy
|
23508
|
|
South Africa
|
20719
|
|
Poland
|
18763
|
|
Turkey
|
18760
|
|
Vietnam
|
18157
|
|
Netherlands
|
14439
|
|
Czech Republic
|
9428
|
|
Switzerland
|
8945
|
|
Denmark
|
8858
|
|
Belgium
|
8495
|
|
Ukraine
|
7431
|
|
Canada
|
7386
|
|
South Korea
|
6750
|
|
India
|
6739
|
Top 20 Countries - Increase Weighted Confirmed Avg per 1e+04 people
|
Country_Region
|
Increase_Weighted_Confirmed_Avg_Avg
|
|
San Marino
|
23.45
|
|
Andorra
|
21.94
|
|
Denmark
|
15.10
|
|
Liechtenstein
|
12.05
|
|
United Kingdom
|
11.57
|
|
Monaco
|
10.82
|
|
Slovakia
|
10.27
|
|
Switzerland
|
10.26
|
|
Ireland
|
9.30
|
|
Eswatini
|
9.03
|
|
Czech Republic
|
8.83
|
|
Norway
|
8.61
|
|
Netherlands
|
8.17
|
|
France
|
7.83
|
|
Georgia
|
7.70
|
|
Croatia
|
7.53
|
|
Belgium
|
7.32
|
|
Cyprus
|
7.05
|
|
Luxembourg
|
6.06
|
|
Slovenia
|
5.79
|
Totals
Top 20 Countries - Total Deaths
|
Country_Region
|
Deaths
|
|
United States
|
812069
|
|
Brazil
|
618366
|
|
India
|
478759
|
|
Mexico
|
298161
|
|
Russia
|
294322
|
|
Peru
|
202375
|
|
United Kingdom
|
148038
|
|
Indonesia
|
144034
|
|
Italy
|
136077
|
|
Iran
|
131211
|
|
Colombia
|
129586
|
|
France
|
123101
|
|
Argentina
|
116964
|
|
Germany
|
109753
|
|
Ukraine
|
99856
|
|
Poland
|
92829
|
|
South Africa
|
90587
|
|
Spain
|
88937
|
|
Turkey
|
80957
|
|
Romania
|
58320
|
Top 20 Countries - Total Weighted Deaths per 1e+06 people
|
Country_Region
|
Weighted_Deaths
|
|
Peru
|
6126
|
|
Bulgaria
|
4416
|
|
Bosnia and Herzegovina
|
3982
|
|
Hungary
|
3922
|
|
Montenegro
|
3840
|
|
North Macedonia
|
3796
|
|
Moldova
|
3680
|
|
Georgia
|
3546
|
|
Czech Republic
|
3303
|
|
Romania
|
3040
|
|
Croatia
|
3004
|
|
Slovakia
|
2967
|
|
Brazil
|
2888
|
|
San Marino
|
2881
|
|
Armenia
|
2672
|
|
Slovenia
|
2616
|
|
Lithuania
|
2592
|
|
Argentina
|
2553
|
|
Colombia
|
2538
|
|
United States
|
2439
|
Maps
Plots
# CountryList <- bind_rows(top_Increase_Weighted_Deaths_Avg_Avg %>% select(Country_Region),
# top_Increase_Deaths_Avg_Avg%>% select(Country_Region),
# top_Deaths %>% select(Country_Region)) %>% unique() %>% pull(Country_Region)
# CountryList <- unique(c(top_Increase_Weighted_Deaths_Avg_Avg$Country_Region,
# top_Increase_Deaths_Avg_Avg$Country_Region,
# top_Deaths$Country_Region,
#
# "Portugal"))
CountryList <- c("United Kingdom","France","Italy","Germany",#"Belgium",
"Spain"#,"Greece"#,
#"Sweden","Norway","Finland","Czech Republic","Peru", "United States", "Brazil"
)